home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / BlitzBasic / TRITONBLITZ / Demos / toolmanager3.bb2 < prev    next >
Encoding:
Text File  |  1998-06-24  |  4.5 KB  |  236 lines
  1. ;/*
  2. ; *  Triton - The object oriented GUI creation system For the AMIGA
  3. ; *  Written by Stefan Zeiger in 1993-1995
  4. ; *
  5. ; *  (c) 1993-1995 by Stefan Zeiger
  6. ; *  You are hereby allowed To Use this source OR parts
  7. ; *  of it For creating programs For AmigaOS which Use the
  8. ; *  Triton GUI creation system. All other rights reserved.
  9. ; *
  10. ; *  Toolmanager3.c - Looks like the original ToolManager
  11. ; *
  12. ; */
  13.  
  14. ; useful Runtime-Error-Routine which closes all windows if a error
  15. ; appears. So you don't need to restart your machine every time :-)
  16.  
  17. NoCli:WBStartup
  18.  
  19. SetErr
  20.  
  21.   ErrFail
  22.   If project.l Then TR_CloseProject_ project
  23.   If application.l Then TR_DeleteApp_ application
  24.   End
  25.  
  26. End SetErr
  27.  
  28. INCLUDE "blitz2:bbincludes/libraries/triton.bb2"
  29.  
  30. NEWTYPE .LVItem
  31.  
  32.   num.w
  33.   text$
  34.  
  35. End NEWTYPE
  36.  
  37. Dim cycle_entries.l(8)
  38. Dim List LVNodes.LVItem(9)
  39.  
  40. InitTagList 1,200
  41. InitTagList 2,10
  42.  
  43. cycle_entries(1)=Null("Exec")
  44. cycle_entries(2)=Null("Image")
  45. cycle_entries(3)=Null("Sound")
  46. cycle_entries(4)=Null("Menu")
  47. cycle_entries(5)=Null("Icon")
  48. cycle_entries(6)=Null("Docs")
  49. cycle_entries(7)=Null("Access")
  50. cycle_entries(8)=0
  51.  
  52. ResetList LVNodes()
  53.  
  54. If AddItem(LVNodes())
  55.   LVNodes()\text="2024View"
  56.   If AddItem(LVNodes())
  57.     LVNodes()\text="Add to archive"
  58.     If AddItem(LVNodes())
  59.       LVNodes()\text="Deletetool"
  60.       If AddItem(LVNodes())
  61.         LVNodes()\text="Edit text"
  62.         If AddItem(LVNodes())
  63.           LVNodes()\text="Env"
  64.           If AddItem(LVNodes())
  65.             LVNodes()\text="Exchange"
  66.             If AddItem(LVNodes())
  67.               LVNodes()\text="Multiview"
  68.             EndIf
  69.           EndIf
  70.         EndIf
  71.       EndIf
  72.     EndIf
  73.   EndIf
  74. EndIf
  75.  
  76. ResetList LVNodes()
  77.  
  78. Use TagList 2
  79.  
  80. AddTags #TRCA_Name,Null("ToolManagerGUIDemo1")
  81. AddTags #TRCA_LongName,Null("ToolManager-GUI Demo 1")
  82. AddTags #TRCA_Info,Null("Looks like the original")
  83. AddTags #TAG_END,0
  84.  
  85. Use TagList 1
  86.  
  87.   AddTags !WindowID{1},!WindowPosition{#TRWP_CENTERDISPLAY}
  88.   AddTags !WindowTitle{Null("ToolManager GUI demo 3")}
  89.  
  90.   AddTags !VertGroupA
  91.     AddTags !Space
  92.  
  93.     AddTags !HorizGroupAC
  94.       AddTags !Space
  95.  
  96.       AddTags !TextID{Null("_Object Type"),1}
  97.       AddTags !Space
  98.  
  99.       AddTags !CycleGadget{&cycle_entries(1),0,1}
  100.       AddTags !Space
  101.     AddTags !EndGroup
  102.  
  103.  
  104.     AddTags !Space
  105.  
  106.     AddTags !NamedSeparatorI{Null("Object List"),2}
  107.  
  108.     AddTags !Space
  109.  
  110.     AddTags !HorizGroupAC
  111.       AddTags !Space
  112.  
  113.       AddTags !VertGroupAC
  114.  
  115.         AddTags !ListSS{&LVNodes(0)-36,2,0,0}
  116.  
  117.         AddTags !HorizGroupEA
  118.  
  119.           AddTags !Button{Null("_New..."),8}
  120.           AddTags !Button{Null("_Edit..."),9}
  121.  
  122.         AddTags !EndGroup
  123.  
  124.         AddTags !HorizGroupEA
  125.  
  126.           AddTags !Button{Null("_Copy"),10}
  127.           AddTags !Button{Null("Remove"),11}
  128.  
  129.         AddTags !EndGroup
  130.  
  131.       AddTags !EndGroup
  132.  
  133.       AddTags !Space
  134.  
  135.       AddTags !_Line{#TROF_VERT}
  136.  
  137.       AddTags !Space
  138.  
  139.       AddTags !VertGroupA OR #TRGR_FIXHORIZ
  140.         AddTags !Button{Null("Top"),3}
  141.         AddTags !Space
  142.         AddTags !Button{Null("Up"),4}
  143.         AddTags !Space
  144.         AddTags !Button{Null("Down"),5}
  145.         AddTags !Space
  146.         AddTags !Button{Null("Bottom"),6}
  147.  
  148.         AddTags !VertGroupS,!Space,!EndGroup
  149.  
  150.         AddTags !Button{Null("So_rt"),7}
  151.       AddTags !EndGroup
  152.  
  153.       AddTags !Space
  154.  
  155.     AddTags !EndGroup
  156.  
  157.     AddTags !Space
  158.  
  159.     AddTags !HorizSeparator
  160.  
  161.     AddTags !Space
  162.  
  163.     AddTags !HorizGroup
  164.       AddTags !Space
  165.  
  166.       AddTags !HorizGroupS
  167.  
  168.         AddTags !Button{Null("_Save"),12}
  169.         AddTags !Space
  170.         AddTags !Button{Null("_Use"),13}
  171.         AddTags !Space
  172.         AddTags !Button{Null("_Test"),14}
  173.         AddTags !Space
  174.         AddTags !Button{Null("_Cancel"),15}
  175.       AddTags !EndGroup
  176.  
  177.       AddTags !Space
  178.  
  179.     AddTags !EndGroup
  180.  
  181.     AddTags !Space
  182.  
  183.   AddTags !EndGroup
  184.  
  185.   AddTags #TAG_END,0
  186.  
  187. ; ---------------------------- MAIN ROUTINE ---------------------------
  188.  
  189. Use TagList 2
  190.  
  191. application.l=TR_CreateApp_(TagList)
  192.  
  193. If (application)
  194.  
  195.   Use TagList 1
  196.  
  197.   project.l=TR_OpenProject_(application,TagList)
  198.  
  199.   If (project)
  200.     user_closed=0
  201.  
  202.       While (user_closed=0)
  203.  
  204.         TR_Wait_ application,0
  205.  
  206.         *trmsg.TR_Message=TR_GetMsg_(application)
  207.  
  208.         While (*trmsg)
  209.  
  210.           If (*trmsg\trm_Project=project)
  211.             Select *trmsg\trm_Class
  212.  
  213.               Case #TRMS_CLOSEWINDOW
  214.                 user_closed=True
  215.               End Select
  216.           EndIf
  217.  
  218.           TR_ReplyMsg_ *trmsg
  219.  
  220.           *trmsg=TR_GetMsg_(application)
  221.         End While
  222.       End While
  223.     TR_CloseProject_ project
  224.   Else
  225.     NPrint "Unable to create the project"
  226.   EndIf
  227.  
  228.     TR_DeleteApp_ application
  229.  
  230. Else
  231.   NPrint "Unable to create application"
  232. EndIf
  233.  
  234. End
  235.  
  236.